
Public Class showUI

    Friend fontCare As Boolean = False

    Private Sub textbox_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles textbox.MouseWheel
        If fontCare Then
            Using f As Font = textbox.Font
                textbox.Font = New Font(f.FontFamily, f.Size + Convert.ToSingle(e.Delta) / 128, f.Style, f.Unit)
            End Using
        End If
    End Sub

    Private Sub showUI_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Alt Or e.KeyCode = Keys.ControlKey Or e.KeyCode = Keys.ShiftKey Then
            fontCare = True
        End If
    End Sub

    Private Sub showUI_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
        If e.KeyCode = Keys.Alt Or e.KeyCode = Keys.ControlKey Or e.KeyCode = Keys.ShiftKey Then
            fontCare = False
        ElseIf e.KeyCode = Keys.Escape Then
            Me.Close()
            Application.Exit()
        End If
    End Sub
End Class